home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / deepspac.lha / DS1_91.LHA / DS_TA.LHA / Rexx / DeepSpace.trans
Text File  |  1994-08-03  |  794b  |  34 lines
  1. /* DeepSpace.trans       */
  2.  
  3. OPTIONS FAILAT 999          /* Keeps users out of the shell! */
  4. OPTIONS RESULTS
  5.  
  6. CALL PRAGMA('stack',50000)
  7.  
  8. USERINFO A ; name = UPPER(RESULT)
  9. sname=word(name,1)
  10. nname=word(name,2)
  11. SYSTEMINFO M ; time = RESULT
  12. SYSTEMINFO 8 ; line = RESULT
  13. id=time(s)
  14.  
  15. CLS
  16. transmit "Loading Deep Space..."
  17.  
  18. SetNodeLocation Name' is playing Deep Space'
  19.  
  20. path='t:ds-'||sname||nname||'.'line   /* change this to reflect your directory path */
  21.  
  22. OPEN(temp,path,'W')
  23. WRITELN(temp,'FailAt 99999')
  24. WRITELN(temp,'CD BBS:Extras/DeepSpace')
  25. WRITELN(temp,'DeepSpace '||name||' T='||time||' D=60000')
  26. WRITELN(temp,'endcli')
  27. CLOSE(temp)
  28.  
  29. ADDRESS COMMAND 'NewShell FIFO:ds'id'/rwkecs from 'path
  30. ADDRESS COMMAND 'BBS:Bin/TrShell -n'line' -d -e -fds'id 
  31. ADDRESS COMMAND 'Delete 'path' quiet'
  32.  
  33. EXIT 0
  34.